/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_09 / gerald / Recursion / Needles

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 18 f4 20 3e 20 | 4e 65 65 64 6c 65 73 20 |..... > |Needles |
|00000010| 20 20 20 20 20 20 20 3a | 0d 00 14 23 f4 20 41 75 |       :|...#. Au|
|00000020| 74 68 6f 72 20 20 20 20 | 20 20 20 20 20 20 20 3a |thor    |       :|
|00000030| 20 47 20 4c 20 46 69 74 | 74 6f 6e 0d 00 1e 28 f4 | G L Fit|ton...(.|
|00000040| 20 43 6f 70 79 72 69 67 | 68 74 20 20 20 20 20 20 | Copyrig|ht      |
|00000050| 20 20 3a 20 41 42 41 43 | 55 53 20 54 52 41 49 4e |  : ABAC|US TRAIN|
|00000060| 49 4e 47 0d 00 28 2b f4 | 20 44 61 74 65 20 20 20 |ING..(+.| Date   |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 3a 20 32 33 72 64 |        |  : 23rd|
|00000080| 20 4e 6f 76 65 6d 62 65 | 72 20 31 39 38 37 0d 00 | Novembe|r 1987..|
|00000090| 32 05 3a 0d 00 3c 05 3a | 0d 00 46 0e ee 20 85 20 |2.:..<.:|..F.. . |
|000000a0| f2 65 72 72 6f 72 0d 00 | 50 07 eb 20 33 0d 00 5a |.error..|P.. 3..Z|
|000000b0| 05 3a 0d 00 64 05 3a 0d | 00 6e 05 3a 0d 00 78 0a |.:..d.:.|.n.:..x.|
|000000c0| f2 69 6e 74 72 6f 0d 00 | 82 25 f1 20 22 4e 75 6d |.intro..|.%. "Num|
|000000d0| 62 65 72 20 6f 66 20 64 | 69 73 63 73 20 74 6f 20 |ber of d|iscs to |
|000000e0| 74 72 61 6e 73 66 65 72 | 2e 20 22 0d 00 8c 32 e8 |transfer|. "...2.|
|000000f0| 20 22 54 72 79 20 61 20 | 73 6d 61 6c 6c 20 6e 75 | "Try a |small nu|
|00000100| 6d 62 65 72 2c 20 65 67 | 20 33 2c 20 66 69 72 73 |mber, eg| 3, firs|
|00000110| 74 2e 20 22 20 64 69 73 | 63 73 24 27 27 0d 00 96 |t. " dis|cs$''...|
|00000120| 14 64 69 73 63 73 25 3d | bb 28 64 69 73 63 73 24 |.discs%=|.(discs$|
|00000130| 29 0d 00 a0 35 f4 20 4d | 6f 76 65 20 61 20 70 69 |)...5. M|ove a pi|
|00000140| 6c 65 20 6f 66 20 64 69 | 73 63 73 20 66 72 6f 6d |le of di|scs from|
|00000150| 20 4e 65 65 64 6c 65 20 | 31 20 74 6f 20 4e 65 65 | Needle |1 to Nee|
|00000160| 64 6c 65 20 32 2e 0d 00 | aa 32 f2 6d 6f 76 65 28 |dle 2...|.2.move(|
|00000170| 64 69 73 63 73 25 2c 22 | 4e 65 65 64 6c 65 20 31 |discs%,"|Needle 1|
|00000180| 22 2c 22 4e 65 65 64 6c | 65 20 32 22 2c 22 4e 65 |","Needl|e 2","Ne|
|00000190| 65 64 6c 65 20 33 22 29 | 0d 00 b4 05 e0 0d 00 be |edle 3")|........|
|000001a0| 05 3a 0d 00 c8 0c dd 20 | f2 65 72 72 6f 72 0d 00 |.:..... |.error..|
|000001b0| d2 05 3a 0d 00 dc 05 3a | 0d 00 e6 0b ef 20 32 36 |..:....:|..... 26|
|000001c0| 2c 31 32 0d 00 f0 05 f6 | 0d 00 fa 13 f1 20 22 20 |,12.....|..... " |
|000001d0| 61 74 20 6c 69 6e 65 20 | 22 3b 9e 0d 01 04 05 fa |at line |";......|
|000001e0| 0d 01 0e 05 3a 0d 01 18 | 05 e1 0d 01 22 05 3a 0d |....:...|....".:.|
|000001f0| 01 2c 23 dd 20 f2 6d 6f | 76 65 28 64 69 73 63 25 |.,#. .mo|ve(disc%|
|00000200| 2c 66 72 6f 6d 24 2c 74 | 6f 24 2c 73 70 61 72 65 |,from$,t|o$,spare|
|00000210| 24 29 0d 01 36 4a f4 20 | 4d 6f 76 65 73 20 61 20 |$)..6J. |Moves a |
|00000220| 70 69 6c 65 20 6f 66 20 | 64 69 73 63 73 20 28 66 |pile of |discs (f|
|00000230| 72 6f 6d 20 64 69 73 63 | 20 31 20 64 6f 77 6e 20 |rom disc| 1 down |
|00000240| 74 6f 20 64 69 73 63 25 | 29 20 66 72 6f 6d 20 66 |to disc%|) from f|
|00000250| 72 6f 6d 24 20 74 6f 20 | 74 6f 24 2e 0d 01 40 05 |rom$ to |to$...@.|
|00000260| 3a 0d 01 4a 05 3a 0d 01 | 54 30 e7 20 64 69 73 63 |:..J.:..|T0. disc|
|00000270| 25 3c 3e 30 20 8c 20 f2 | 6d 6f 76 65 28 64 69 73 |%<>0 . .|move(dis|
|00000280| 63 25 2d 31 2c 66 72 6f | 6d 24 2c 73 70 61 72 65 |c%-1,fro|m$,spare|
|00000290| 24 2c 74 6f 24 29 0d 01 | 5e 43 e7 20 64 69 73 63 |$,to$)..|^C. disc|
|000002a0| 25 3c 3e 30 20 8c 20 f1 | 20 22 4d 6f 76 65 20 44 |%<>0 . .| "Move D|
|000002b0| 69 73 63 20 22 3b 64 69 | 73 63 25 3b 22 20 66 72 |isc ";di|sc%;" fr|
|000002c0| 6f 6d 20 22 3b 66 72 6f | 6d 24 3b 22 20 74 6f 20 |om ";fro|m$;" to |
|000002d0| 22 3b 74 6f 24 3b 22 2e | 22 0d 01 68 30 e7 20 64 |";to$;".|"..h0. d|
|000002e0| 69 73 63 25 3c 3e 30 20 | 8c 20 f2 6d 6f 76 65 28 |isc%<>0 |. .move(|
|000002f0| 64 69 73 63 25 2d 31 2c | 73 70 61 72 65 24 2c 74 |disc%-1,|spare$,t|
|00000300| 6f 24 2c 66 72 6f 6d 24 | 29 0d 01 72 05 3a 0d 01 |o$,from$|)..r.:..|
|00000310| 7c 05 e1 0d 01 86 05 3a | 0d 01 90 0c dd 20 f2 69 ||......:|..... .i|
|00000320| 6e 74 72 6f 0d 01 9a 05 | 3a 0d 01 a4 05 db 0d 01 |ntro....|:.......|
|00000330| ae 4b f1 20 22 54 68 65 | 72 65 20 61 72 65 20 74 |.K. "The|re are t|
|00000340| 68 72 65 65 20 6e 65 65 | 64 6c 65 73 2e 20 20 4f |hree nee|dles.  O|
|00000350| 6e 20 74 68 65 20 66 69 | 72 73 74 20 6e 65 65 64 |n the fi|rst need|
|00000360| 6c 65 20 69 73 20 61 20 | 6e 75 6d 62 65 72 20 6f |le is a |number o|
|00000370| 66 20 64 69 73 63 73 2e | 22 0d 01 b8 39 f1 20 22 |f discs.|"...9. "|
|00000380| 59 6f 75 20 6d 75 73 74 | 20 74 72 61 6e 73 66 65 |You must| transfe|
|00000390| 72 20 74 68 65 20 64 69 | 73 63 73 20 74 6f 20 74 |r the di|scs to t|
|000003a0| 68 65 20 73 65 63 6f 6e | 64 20 6e 65 65 64 6c 65 |he secon|d needle|
|000003b0| 2e 22 0d 01 c2 48 f1 20 | 22 59 6f 75 20 6d 75 73 |."...H. |"You mus|
|000003c0| 74 20 6e 6f 74 20 70 75 | 74 20 61 20 6c 6f 77 20 |t not pu|t a low |
|000003d0| 6e 75 6d 62 65 72 20 64 | 69 73 63 20 62 65 6c 6f |number d|isc belo|
|000003e0| 77 20 6f 6e 65 20 6f 66 | 20 61 20 68 69 67 68 65 |w one of| a highe|
|000003f0| 72 20 6e 75 6d 62 65 72 | 2e 22 0d 01 cc 49 f1 20 |r number|."...I. |
|00000400| 22 52 75 6e 6e 69 6e 67 | 20 74 68 69 73 20 70 72 |"Running| this pr|
|00000410| 6f 67 72 61 6d 6d 65 20 | 67 69 76 65 73 20 69 6e |ogramme |gives in|
|00000420| 73 74 72 75 63 74 69 6f | 6e 73 20 66 6f 72 20 6d |structio|ns for m|
|00000430| 6f 76 69 6e 67 20 74 68 | 65 20 64 69 73 63 73 2e |oving th|e discs.|
|00000440| 22 27 27 0d 01 d6 05 3a | 0d 01 e0 05 e1 0d 01 ea |"''....:|........|
|00000450| 05 3a 0d ff             |                         |.:..    |        |
+--------+-------------------------+-------------------------+--------+--------+